home *** CD-ROM | disk | FTP | other *** search
/ Programmer Power Tools / Programmer Power Tools.iso / pibterm / pibt41s3.arc / PT4TERM.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-03-18  |  3.0 KB  |  74 lines
  1. UNIT PT4TERM;
  2.  
  3. INTERFACE
  4.  
  5. USES
  6.    Dos, Crt, GlobType, StringMan, GlobRout, PibTimer, PibMTask, PibAsync,
  7.    PT4ASCI, PT4CISB,  PT4UTIL, PT4VIEW, PT4DIAL, PT4SCRI, PT4EDIT,
  8.    PT4SETP, PT4UPDWN, PT4DISPC;
  9.                                    (* General terminal definitions      *)
  10. {$I TERMDEF.LOC  }
  11.  
  12. (* EXPORTS *)
  13.    PROCEDURE Do_VT52_LineFeeds( Ch : CHAR );
  14.    PROCEDURE Handle_Carrier_Drop;
  15.    PROCEDURE Check_Wait_String_Time;
  16.    PROCEDURE Process_Command( VAR Ch       : CHAR;
  17.                                   Use_Ch   : BOOLEAN;
  18.                               VAR Command  : PibTerm_Command_Type );
  19.    PROCEDURE Execute_Command( VAR Command    : Pibterm_Command_Type;
  20.                               VAR Done       : BOOLEAN;
  21.                                   Use_Script : BOOLEAN );
  22.    PROCEDURE Get_Script_Command( VAR Command : PibTerm_Command_Type );
  23.    PROCEDURE Handle_Scroll_Lock;
  24.    PROCEDURE Handle_Keyboard_Input( VAR Done                  : BOOLEAN;
  25.                                     VAR Reset_Requested       : BOOLEAN;
  26.                                     VAR ClearScreen_Requested : BOOLEAN );
  27.    PROCEDURE Init_Text_Terminal;
  28.    PROCEDURE Do_Script_Checks( Ch: CHAR );
  29.    PROCEDURE Load_Function_Keys( File_Name : AnyStr );
  30.    PROCEDURE Handle_Tab( VAR Tabs : Tab_Stop_Vector; NTabs : INTEGER );
  31.    PROCEDURE Exec_PC_Commands;
  32.    PROCEDURE Get_Async_Integer( VAR Integr: INTEGER );
  33.    FUNCTION  Handle_Zmodem_Autodownload : BOOLEAN;
  34.    FUNCTION  Handle_Kermit_Autodownload : BOOLEAN;
  35.  
  36. IMPLEMENTATION
  37.                                    (* Compare character strings *)
  38. {$I CMPSTR.MOD   }
  39.                                    (* Toggle option on/off      *)
  40. {$I TOGGLEOP.MOD }
  41.                                    (* Check if WaitString found *)
  42. {$I CHECKWAI.MOD }
  43.                                    (* Do Script-related checks  *)
  44. {$I DOSCRIPC.MOD }
  45.                                    (* Process PibTerm command   *)
  46. {$I PROCESSC.MOD }
  47.                                    (* Execute a PibTerm command *)
  48. {$I EXECUTC1.MOD }
  49. {$I EXECUTC2.MOD }
  50.                                    (* Get command from script   *)
  51. {$I GETSCRIP.MOD }
  52.                                    (* Handle scroll lock key    *)
  53. {$I HANDLESC.MOD }
  54.                                    (* Handle keyboard input     *)
  55. {$I HANDLEKB.MOD }
  56.                                    (* Handle carrier drop       *)
  57. {$I HANDLECD.MOD }
  58.                                    (* Handle auto key load      *)
  59. {$I AUTOKLOD.MOD }
  60.                                    (* EXEC PC BBS commands      *)
  61. {$I EXECPC.MOD   }
  62.                                    (* Get VT52 style position   *)
  63. {$I GETASYNC.MOD }
  64.                                    (* Do VT52 linefeed processing*)
  65. {$I DOVT52LF.MOD }
  66.                                    (* Do tab processing          *)
  67. {$I HANDLEHT.MOD }
  68.                                    (* Initialize text terminals  *)
  69. {$I INITTEXT.MOD }
  70.                                    (* Handle autodownloads       *)
  71. {$I AUTODOWN.MOD }
  72.  
  73. END   (* PT4TERM *).
  74.